home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abl.d64 / PURGE (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  114 lines
  1. 5 GOTO170
  2. 10 SYS52440:A$=LEFT$(SP$,A1%):SYS52360:RETURN
  3. 15 SYS52300:IFA1%<0THEN25
  4. 20 A$=LEFT$(SP$,A1%):SYS52360:GOSUB460:O$=A$:RETURN
  5. 25 PRINT"[212][197]":GOTO505
  6. 30 SYS52340:RETURN
  7. 35 PRINT"[152]";:GOSUB50:SYS52310:RETURN
  8. 40 IFLEN(A$)<PEEK(680)THENA$=A$+" ":GOTO40
  9. 45 RETURN
  10. 50 IFLL>0OR(PEEK(56577)AND16)=THTHENRETURN
  11. 55 GOTO510
  12. 60 POKE659,6+ABS((BD=1200)*2):C=1022730/BD:GOSUB125:POKE51968,A2%:POKE51969,A1%
  13. 65 IFBD=1200THENC=1022730/BD*.966:GOSUB125
  14. 70 POKE665,A2%:POKE666,A1%:C=1022730/BD/2-100:GOSUB125:POKE661,A2%:POKE662,A1%
  15. 75 RETURN
  16. 80 B$="[164]"
  17. 85 SYS52450:B$=LEFT$(A$,ABS(A1%-1)):RETURN
  18. 90 A$="":SYS52320:IFA2%=0THENRETURN
  19. 95 IFA2%=1ORA2%=3ORA2%=16ORA2%=9THENA$="[193]":RETURN
  20. 100 IFA2%<>83ANDA2%<>19THENRETURN
  21. 105 FORKK=1TO2E3:SYS52320:IFA2%=0THEN120
  22. 110 IFA2%=17ORA2%=67THENKK=2E3
  23. 115 IFA2%=65ORA2%=13THENA$="[193]":KK=2E3
  24. 120 NEXTKK:RETURN
  25. 125 A1%=C/256:A2%=C-A1%*256:RETURN
  26. 130 C=ASC(LEFT$(A$,1))*256+ASC(MID$(A$,2)):RETURN
  27. 135 IFLEN(A$)<CTHENA$=A$+" ":GOTO135
  28. 140 RETURN
  29. 145 GOSUB35:IFIT$=""THENGOSUB15:IT$=A$:GOSUB160:RETURN
  30. 150 GOSUB160:IFPEEK(679)<>1THENGOSUB35:O$=A$:A$="":GOSUB35:A$=O$
  31. 155 RETURN
  32. 160 A$=IT$:B$=":":GOSUB85:IFA1%=0THENIT$="":RETURN
  33. 165 IT$=MID$(A$,A1%+1):A$=B$:RETURN
  34. 170 POKE691,1:OPEN5,2,0:A1%=1:A2%=1:FORK=1TO127:SP$=SP$+" ":NEXTK:A$=""
  35. 175 A1%=0:GOSUB10:RK$=A$:R$=CHR$(13)
  36. 180 A1%=1:GOSUB10:BD=VAL(LEFT$(A$,5)):LL=VAL(MID$(A$,6)):A1%=2:GOSUB10:TH=VAL(A$)
  37. 185 A1%=3:GOSUB10:IT$=A$:IFBD<>0THENGOSUB60
  38. 190 A1%=8:A$=SP$:SYS52490:IFLEFT$(A$,1)=""THEN505
  39. 195 C$=A$:A$=MID$(C$,95,10):GOSUB80:MS$(1)=B$:FORK=2TO8:MS$(K)=MID$(C$,105+K,1)
  40. 200 NEXTK:FORK=1TO8:A$=MID$(C$,5+(K-1)*10,10):GOSUB80:AA$(K)=B$:NEXTK
  41. 205 A$="":FORK=1TO8:IFAA$(K)<>""THENA$=A$+""+STR$(K)+": "+AA$(K):NEXTK
  42. 210 A$=""+A$:GOSUB35:GOSUB90
  43. 215 BA=9:A$="([210]ETURN TO EXIT)[208]URGE ALL BASES? ":GOSUB145:IFA$="Y"THEN230
  44. 220 IFA$=""THEN505
  45. 225 A$="[215]HICH BASE? ":GOSUB145:BA=VAL(A$):IFA$=""THEN215
  46. 230 A$="[210]UN A CHECK? ":GOSUB145:IFA$="Y"THENCK=1
  47. 235 A$="[208]URGE OLD INFO FILE? ":GOSUB145:IFLEFT$(A$,1)<>"Y"THEN245
  48. 240 OPEN1,8,15,"S0:M1":CLOSE1:OPEN4,8,4,"0:M1,S,W":PRINT#4," "+R$:CLOSE4
  49. 245 IFBA=9THEN255
  50. 250 BS=BA:GOSUB270:GOTO505
  51. 255 FORZL=1TO8:IFAA$(ZL)<>""THENBS=ZL:GOSUB270
  52. 260 NEXTZL
  53. 265 GOTO505
  54. 270 A$=SP$:A1%=BS-1:A$=SP$:SYS52490:IFLEFT$(A$,1)=""THENA$="[206]OT LOADED":RETURN
  55. 275 NM%=1:DF=0:P=0:PR=0:R=0:LM%=0:FM%=0
  56. 280 BS$=A$:DU$="0:":A=ASC(MS$(BS))-65:DV=INT(8+A/2):IFA/2<>INT(A/2)THENDU$="1:"
  57. 285 Y=0:IFDV<8ORDV>12THENA$="[201]NVALID DRIVE!!":RETURN
  58. 290 FM%=32000:NM%=VAL(MID$(A$,11,5)):MS$="":IFBS>1THENMS$=STR$(BS)
  59. 295 IFMID$(MS$(BS),2)<>""THENOPEN1,DV,15,"/0:"+MID$(MS$(BS),2):CLOSE1
  60. 300 OPEN1,DV,15:OPEN2,DV,2,DU$+"/MAIL"+MS$
  61. 305 A$="[147][201]N [194]ASE: "+AA$(BS)
  62. 310 A$=A$+", "+STR$(NM%)+" TOTAL MESSAGES.":GOSUB35:LL=LL+1:FM=FM%
  63. 315 FORK=2TONM%:C=K:GOSUB125:PRINT#1,"P"+CHR$(98)+CHR$(A2%)+CHR$(A1%);
  64. 320 A$=SP$:SYS52390:B$=LEFT$(A$,2):GOSUB130:M$=A$:E$=":":REM DELETED
  65. 325 GOSUB545
  66. 330 S$=MID$(M$,3,1)
  67. 335 IFS$="[208]"ANDMID$(M$,5,1)="[210]"THENDF=DF+1:GOSUB450:E$="[208]":GOTO390
  68. 340 IFS$="[196]"AND MID$(M$,46,1)="[206]"THENDF=DF+1:GOSUB450:E$="[206]":GOTO390
  69. 345 IFS$="[196]"THEN390
  70. 350 IFC>32000ORC<YORS$=R$THENDF=DF+1:GOTO390
  71. 355 Y=C:IFS$="[207]"THENP=P+1
  72. 360 IFS$="[208]"THENPR=PR+1
  73. 365 IFCK=1THENGOSUB545:OPEN4,DV,4,DU$+F$+",S,R":INPUT#1,DD,Z$:IFDD<>0THEN455
  74. 370 IFCK=1THENE$="[205]SG"+STR$(C)+" OK."
  75. 375 D=C:R=R+1:C=R+1:GOSUB125:PRINT#1,"P"+CHR$(98)+CHR$(A2%)+CHR$(A1%);
  76. 380 PRINT#2,M$:IFD>LM%THENLM%=D:IFCK=0THENE$="-"
  77. 385 IFD<FM%THENFM%=D
  78. 390 CLOSE4:A$=E$:GOSUB35:NEXTK
  79. 395 OPEN4,8,4,"0:M1,S,A":PRINT#4,R$
  80. 400 A$="[196]ELETED:"+STR$(DF)+"  [208]OLLS:"+STR$(P)+"[208]RIVATE:"+STR$(PR)
  81. 405 A$=A$+"    [204]EFT:"+STR$(R):GOSUB35
  82. 410 A$="   [200]IGH:"+STR$(LM%)+"    [204]OW:"+STR$(FM%)+R$:PRINT#4,A$+R$:GOSUB35:CLOSE4
  83. 415 A$="[215]RITING NEW HEADER..":GOSUB35:LM%=LM%+1:NM%=R+2:MM%=NM%:DM%=1
  84. 420 A$=MID$(STR$(FM%),2,5):C=5:GOSUB135:A$=A$+MID$(STR$(LM%),2,5):C=10:GOSUB135
  85. 425 A$=A$+MID$(STR$(NM%),2,5):C=15:GOSUB135:A$=A$+MID$(STR$(MM%),2,5)
  86. 430 C=20:GOSUB135:A$=A$+MID$(STR$(DM%),2,5)+"[164][164][164][164][164][164][164][164][164][164][164][164]"
  87. 435 M2$=LEFT$(A$,30)+MID$(BS$,31):A$=M2$
  88. 440 A1%=BS-1:SYS52480:PRINT#1,"P"+CHR$(98)+CHR$(1)+CHR$(0);:PRINT#2,M2$
  89. 445 CLOSE1:CLOSE2:LL=LL-1:RETURN
  90. 450 PRINT#1,"S"+DU$+F$:RETURN
  91. 455 E$="* [204]OST TEXT - "+F$+Z$+"":DL=DL+1:GOTO390
  92. 460 IFA2%<1THENRETURN
  93. 465 B$=A$:IFA2%<>67THEN480
  94. 470 A$="[195]HAT MODE.":GOSUB35:A1=PEEK(680):A2=PEEK(682):POKE680,37:POKE682,1
  95. 475 FORK=0TO1:GOSUB15:K=-(A$="/"):NEXTK:POKE680,A1:POKE682,A2:GOTO495
  96. 480 IFA2%<>84THEN490
  97. 485 TI$="000010":GOTO495
  98. 490 IFA2%=75THEN505
  99. 495 GOSUB15:A$=B$+A$:RETURN
  100. 500 GOSUB90:IFA$="[193]"THENRETURN
  101. 505 A$="([210]ETURNING TO [194][194][211])":GOSUB35:A$="":POKE691,0:FORK=1TO500:NEXTK
  102. 510 PRINT"[145][145][145][145]SYS52470:REM[145][145][145]"
  103. 515 A$=IT$:A1%=3:SYS52420
  104. 520 A$="":POKE631,13:POKE198,1:CLOSE5:END
  105. 525 A=VAL(TI$)/100:B=SC*10--10:A=B-A:IFA<0THENA$="[217]":RETURN
  106. 530 A=VAL(MID$(STR$(A),2,3)):IFA>3THENRETURN
  107. 535 LP=LP--1:IFLP>3THENA$="[217]OU HAVE"+STR$(A)+" MINUTES LEFT.":GOSUB35:LP=0
  108. 540 RETURN
  109. 545 F$=MID$(STR$(C),2,5)
  110. 550 IFLEN(F$)<5THENF$="0"+F$:GOTO550
  111. 555 F$="![205]"+F$+MS$:RETURN
  112. 560 A=VAL(TI$)/100:B=SC*10+10:A=B-A:IFA<0THENA$="[217]":RETURN
  113. 565 LP=LP+1:IFLP>3THENA$="[217]OU HAVE"+STR$(A)+" MINUTES LEFT.":GOSUB30:LP=0
  114.